home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Hot Tracking Color 1.xpl < prev    next >
Text File  |  2001-11-27  |  3KB  |  105 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="8"
  3. "COUNT"="2"
  4. "UIPATH"="Appearance\Interface\Effects"
  5. "NAME"="Hot Tracking Color"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Set Color"
  8. "TEXT 2"="Reset Color"
  9. "DESCRIPTION 1"="Users of Windows 98 and 2000, or Windows 95 users with Internet Explorer 4.x / 5.x with the Active Desktop installed will be able to take advantage of the 'Hot Tracking' feature that changes the color of items in Windows Explorer when the mouse is 'hovered' over the top of them. The same feature is also used in X-Setup!"
  10. "DESCRIPTION 2"="This plug-in lets you change the color from the standard blue to one of the above colors. Note that this also affects X-Setup, and the tabs on the X-Setup SDK, as well as other programs such as WinZip where the Hot Tracking feature is enabled."
  11. "DESCRIPTION 3"="NOTE: You will need to logoff for the changes to take effect."
  12. "COMMENT 1"=""
  13. "VERSION"="2.03"
  14. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "CONTACTURL"="http://www.xteq.com/"
  17.  
  18. sP="HKCU\Control Panel\Colors\HotTrackingColor"
  19.  
  20. SUB Plugin_Initialize
  21.   Call SetUIElement(1,"Red")   '255 0 0
  22.   Call SetUIElement(2,"Lime") '0 255 0
  23.   Call SetUIElement(3,"Blue")  '0 0 255
  24.   Call SetUIElement(4,"Yellow")'255 255 0
  25.   Call SetUIElement(5,"White") '255 255 255
  26.   Call SetUIElement(6,"Black") '0 0 0
  27.   Call SetUIElement(7,"Olive") '80 80 0
  28.   Call SetUIElement(8,"Green") '0 80 0
  29.   Call SetUIElement(9,"Maroon") '80 0 0
  30.   Call SetUIELement(10,"Navy") '0 0 80
  31.   Call SetUIElement(11,"Purple") '80 0 80
  32.   Call SetUIElement(12,"Gray") '80 80 80
  33.   Call SetUIElement(13,"Aqua") '0 255 255
  34.   Call SetUIElement(14,"Fuschia") '255 0 255
  35.   Call SetUIElement(15,"Silver") '192 192 192
  36.   Call SetUIElement(16,"Teal") '0 80 80
  37.   Call SetUIElement(17,"(CUSTOM...)")
  38. END SUB
  39.  
  40. Sub Plugin_CheckData(ElementIndex)
  41. End Sub
  42.  
  43. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  44.  If ElementIndex=1 then 'Set Color (grrr... it's 'colour' in REAL English!)
  45.   if ElementSubIndex=0 then 
  46.    Call MsgWarning("No item selected - please select an item first.")
  47.    Exit sub
  48.   end if
  49.  
  50.   s=""
  51.  
  52.   Select Case ElementSubIndex
  53.    Case 1 'Red
  54.     s="255 0 0"
  55.    Case 2 'Lime
  56.     s="0 255 0"
  57.    Case 3 'Blue
  58.     s="0 0 255"
  59.    Case 4 'Yellow
  60.     s="255 255 0"
  61.    Case 5 'White
  62.     s="255 255 255"
  63.    Case 6 'Black
  64.     s="0 0 0"
  65.    Case 7 'Olive
  66.     s="80 80 0"
  67.    Case 8 'Green
  68.     s="0 80 0"
  69.    Case 9 'Maroon
  70.     s="80 0 0"
  71.    Case 10 'Navy
  72.     s="0 0 80"
  73.    Case 11 'Purple
  74.     s="80 0 80"
  75.    Case 12 'Gray (grrr - it's 'grey' in REAL English!)
  76.     s="80 80 80"
  77.    Case 13 'Aqua ("I'm a barbie girl...")
  78.     s="0 255 255"
  79.    Case 14 'Fuschia
  80.     s="255 0 255"
  81.    Case 15 'Silver
  82.     s="192 192 192"
  83.    Case 16 'Teal
  84.     s="0 80 80"
  85.    Case 17
  86.     v=RegReadValue(sP)
  87.     s=InputWindow("Type in the color values for your custom color (for example 255 255 255 would be white, 255 0 0 would be red etc.), and then click OK.",v,1)
  88.   End Select
  89.   Call RegWriteValue(sp,s,1)    
  90.   Call MsgInformatioN("The new color has been set.")
  91.   Call Logoff()
  92.  else 'Reset Color
  93.   s=RegReadValue(sp)
  94.   if IsEmpty(s)=false then
  95.    Call RegDeleteValue(sp)
  96.   end if       
  97.  
  98.   Call MsgInformatioN("The default color has been restored.")
  99.   Call Logoff()
  100.  end if
  101. END SUB
  102.  
  103. SUB Plugin_Terminate
  104. END SUB
  105.